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Problem 

After Reconstruct, the record number increases by one. 


Solution 

5200 'RECOVERY 3.0 

5210 CIiS:N=0:TN=l:F=0 

5215 PRINrrAB(20)"** FILE RECOVERY **" 

5220 PORQ=01OCP:V{Q,0)=0:V(Q,1)=0:NEXT 

5225 PRIWr@320,’'** RECORD NUMBER :"N 

5230 N=Ntl:J=N:aOSOBl840:QOSUB1900;GOSOB1910 

5235 IFE1$<CHR$ (32 )ORE0$>CHR$ (127 )‘IHEN»=N-1:00005250 

5240 NS=1;QOSUB3210:TN=TN+1:EL$=E1^; 

5245 IFN<CPTHEN5225 
5250 GOSUB 1790 

5255 PRIWr;PRINr"> RECOVERY COMPLETE - PRESS <ENTER> 

5260 GOSUB 1460: GOOD 210 

The above module can be used to recover lost data or to re-sort data viAiich 
is out of order. This is usually caused by system failure or abnormal exit 
from the Mailing List program. To perform the "recovery", follow the 
following procedures. 

1) Enter the module (lines 5200 to 5260 above) 

2) SAVE the nodule using the following BASIC oonmand: SAVE 

"RBCOVER/ASC" ,A 

3) Type: IDAD"MLS" and press ENTER 

4) Type: MERGE"RBCCA/ER/ASC" and press ENTER 

5) Type: RUN and press ENTER 
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